home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Svd Messageboard Arcive / ephemery / data / MBPREP.ZIP / MSG1.PL < prev    next >
Encoding:
Text File  |  1999-02-14  |  2.3 KB  |  56 lines
  1. #this is only the single-messages filter
  2.  
  3. $IN = $ARGV[0] eq '' ? "-" : $ARGV[0];
  4. open(IN) || die "can't open $IN";
  5.  
  6. $slave= 1;      #is current file slave or main-one
  7. ####require "msgflt.pl";
  8. #uses $skip, $slave, $nothdr
  9. #$slave= 1;      #is current file slave or main-one
  10. $skip=0;        #state: skipping or no
  11. $nothdr=0;      #recording mode; starts with recording header
  12.  
  13. sub filtline {          #return 1 if line should be skipped
  14.    if (m|\">Back to main board</A>|i) {
  15.       $skip=0 if $skip==1;      #stop skipping
  16.       $skip=1 if $skip==2;      #if skipping inside-message mssg-thread
  17.       $slave++;
  18. #     s|http:.+mbs\.cgi.acct\=mb(\d{6})\"|mb$1.htm\"|;
  19.       s|<A HREF=\".+mb(\d{6}).*\"|<A HREF=\"mb$1.htm\"|;
  20.       s|<B>||; s|</B>||;
  21.     }
  22.  
  23.    return 1 if m|<!--|;                 #skip comments
  24.    return 1 if m|^<blockquote>|;        #skip whole heading
  25.    return 1 if m/[^<]<img src="/;        #skip any line with pictures
  26.    if (m|\"#POSTNEW\"|) { $nothdr++; return 1; }    #skip goto-post-new-message
  27.  
  28.         #skip listbox-menu-header:
  29.    return 1 if m|javascript:if\(confirm\(\'|; #works if teleportPro used  #http://www.insidetheweb.com/
  30.    return 1 if m|[^<]<option|;                      #skip listbox-menu-0
  31.    return 1 if m|^<option|;                         #skip listbox-menu
  32.    return 1 if m|[^<]<input type=\"submit\"|;       #skip listbox-menu-footer
  33.  
  34.    if (m|</SCRIPT>|) { $skip = 0; return 1; }   #end skipping javascript
  35.    if (m|</body>|)   { $skip = 0; }             #end skipping everything NOW
  36.  
  37.    $skip=1  if m|<SCRIPT language=\"javascript\">|;     #start skipping javascript
  38. #  $skip=1  if m|<FORM ACTION=|;                #start skipping newmsg form
  39.    $skip=1  if m|<center><table border=3><tr><td>|;     #start skipping newmsg form
  40.    $skip=2  if m|[^>]>Message thread:<|;     #start skipping thread-view
  41.  
  42.    return 1 if $skip;
  43.    $skip=1  if m|>Back to main board</A>|;      #start skiping again/new-mssg table
  44.    $skip=1  if m|^ *</TITLE>|;          #start skiping after eo title
  45.    $skip=1  if m|[^<]</TITLE>|;         #start skiping after eo title
  46.    return 0;
  47. }
  48. ###1;      #needed by "require()" operator
  49. ####eo require
  50.  
  51. while (<IN>) {            #if using (<>) $ARGV is current file's name
  52.     next if &filtline ; print;
  53. #   $x =  &filtline ; print "$skip:$x:$_";
  54. }
  55. close IN;
  56.